unit MailInfo;

interface 
type
  TMailInfo=class
  private
    FInfoID: integer;
    FBoxID: integer;
    FFrom: string;
    FFromName: string;
    FMaillabelid: integer;
    FSubject: string;
    FMsgID: string;
    procedure SetBoxID(const Value: integer);
    procedure SetFrom(const Value: string);
    procedure SetFromName(const Value: string);
    procedure SetInfoID(const Value: integer);
    procedure SetMaillabelid(const Value: integer);
    procedure SetMsgID(const Value: string);
    procedure SetSubject(const Value: string);
  public
    constructor Create;
    property InfoID:integer read FInfoID write SetInfoID;
    property MsgID:string read FMsgID write SetMsgID;
    property BoxID:integer read FBoxID write SetBoxID;
    property Subject:string read FSubject write SetSubject;
    property From:string read FFrom write SetFrom;
    property FromName:string read FFromName write SetFromName;
    property Maillabelid:integer read FMaillabelid write SetMaillabelid;
  end;

implementation

{ TMailInfo }

constructor TMailInfo.Create;
begin

end;

procedure TMailInfo.SetBoxID(const Value: integer);
begin
  FBoxID := Value;
end;

procedure TMailInfo.SetFrom(const Value: string);
begin
  FFrom := Value;
end;

procedure TMailInfo.SetFromName(const Value: string);
begin
  FFromName := Value;
end;

procedure TMailInfo.SetInfoID(const Value: integer);
begin
  FInfoID := Value;
end;

procedure TMailInfo.SetMaillabelid(const Value: integer);
begin
  FMaillabelid := Value;
end;

procedure TMailInfo.SetMsgID(const Value: string);
begin
  FMsgID := Value;
end;

procedure TMailInfo.SetSubject(const Value: string);
begin
  FSubject := Value;
end;

end.
